﻿Public Class frmPrincipal

    Private Sub txtFormula_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFormula.TextChanged
        identificarVariables(variablesEnUso, txtFormula.Text)
        If ValidarComillas(txtFormula.Text) Then
            txtFormula.Text = reemplazar(txtFormula.Text, proposicionesNaturales)
        End If
        If esFBF(txtFormula.Text) Then
            tip.ToolTipIcon = ToolTipIcon.Info
            tip.ToolTipTitle = "Es FBF"
            tip.Show("La fórmula que usted ingresó es válida", txtFormula, 2000)
            Me.Text = postfijo(txtFormula.Text)
        Else
            tip.ToolTipIcon = ToolTipIcon.Error
            tip.ToolTipTitle = "No es FBF"
            tip.Show("Por favor verifique su fórmula", txtFormula, 2000)
        End If
    End Sub


    Private Sub frmPrincipal_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        txtFormula.Focus()
    End Sub
End Class
